home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / reminder.arc / REMINDER.BAS < prev    next >
BASIC Source File  |  1987-03-31  |  16KB  |  234 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE REMINDER.COM
  2. 110 OPEN "REMINDER.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  214 
  6. 150    LINESUM = 0
  7. 160    FOR J = 1 TO 8
  8. 170       READ BYTE
  9. 180       CHECKSUM = CHECKSUM + BYTE
  10. 190       LINESUM = LINESUM + BYTE
  11. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  12. 210       PUT #1
  13. 220    NEXT J
  14. 230    READ LINECHECK
  15. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  16. 250 NEXT I
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 170059 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   151,     4,    67,   111,   112,   121,   114,   913
  21. 300 DATA    105,   103,   104,   116,    32,    49,    57,    56,   622
  22. 310 DATA     55,    32,    90,   105,   102,   102,    45,    68,   599
  23. 320 DATA     97,   118,   105,   115,    32,    80,   117,    98,   762
  24. 330 DATA    108,   105,   115,   104,   105,   110,   103,    32,   782
  25. 340 DATA     67,   111,    46,    26,    77,   105,    99,   104,   635
  26. 350 DATA     97,   101,   108,    32,    74,    46,    32,    77,   567
  27. 360 DATA    101,   102,   102,   111,   114,   100,     0,     0,   630
  28. 370 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  29. 380 DATA      0,     0,    37,     3,     0,     0,     0,   176,   216
  30. 390 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  31. 400 DATA      1,     1,     0,     0,     0,     7,     0,   112,   121
  32. 410 DATA      0,    19,     0,   169,     8,   144,    11,    59,   410
  33. 420 DATA     60,    61,    62,    71,    72,    75,    77,    79,   557
  34. 430 DATA     80,   168,     3,   247,     3,   182,     3,    12,   698
  35. 440 DATA      4,   152,     3,    97,     3,    88,     3,    79,   429
  36. 450 DATA      3,   159,     3,   106,     3,    39,    42,    44,   399
  37. 460 DATA     45,    46,    68,   105,   115,    32,    69,   110,   590
  38. 470 DATA     83,   117,   110,    77,   111,   110,    84,   117,   809
  39. 480 DATA    101,    87,   101,   100,    84,   104,   117,    70,   764
  40. 490 DATA    114,   105,    83,    97,   116,   251,   156,    46,   968
  41. 500 DATA    255,    30,    66,     1,   156,    30,     6,    80,   624
  42. 510 DATA     83,    81,    82,    86,    87,    85,    14,    31,   549
  43. 520 DATA    252,   128,    62,    87,     1,     0,   117,    30,   677
  44. 530 DATA    128,    62,    92,     1,     1,   116,    23,   128,   551
  45. 540 DATA     62,    91,     1,     1,   116,    19,   180,     1,   471
  46. 550 DATA    205,    22,   116,    10,    60,     0,   117,     6,   536
  47. 560 DATA     58,    38,    97,     1,   116,     3,   233,   194,   740
  48. 570 DATA      0,   128,    14,    87,     1,     1,   128,    54,   413
  49. 580 DATA     88,     1,     2,   180,     0,   205,    22,   232,   730
  50. 590 DATA    188,     0,    50,   255,   180,     3,   205,    16,   897
  51. 600 DATA    137,    22,    70,     1,   185,    12,    11,   129,   567
  52. 610 DATA     62,    76,     1,   186,     3,   116,     3,   185,   632
  53. 620 DATA      7,     6,   137,    14,    72,     1,   180,     1,   418
  54. 630 DATA    205,    16,   190,   148,    11,   232,   198,     0,  1000
  55. 640 DATA    232,    41,     1,   180,     0,   205,    22,    60,   741
  56. 650 DATA     27,   116,    92,    60,    13,   117,     5,   232,   662
  57. 660 DATA     90,     1,   235,   230,    60,     8,   117,     5,   746
  58. 670 DATA    232,    64,     1,   235,   221,    60,     0,   117,   930
  59. 680 DATA     29,    58,    38,    97,     1,   116,    64,   185,   588
  60. 690 DATA     10,     0,   191,   103,     1,   134,   224,   242,   905
  61. 700 DATA    174,   117,   199,   191,   131,     1,   209,   225,  1247
  62. 710 DATA     43,   249,   255,    21,   235,   188,   139,    30,  1160
  63. 720 DATA     74,     1,   128,   251,    78,   116,   179,    60,   887
  64. 730 DATA     32,   116,    17,   114,   173,   128,   251,    43,   874
  65. 740 DATA    117,    10,    36,    95,    60,    65,   116,     4,   503
  66. 750 DATA     60,    80,   117,   158,   232,   154,     0,   187,   988
  67. 760 DATA      1,     0,   232,   175,     0,   235,   147,   128,   918
  68. 770 DATA     54,    88,     1,     2,   190,   154,     5,   232,   726
  69. 780 DATA     84,     0,   139,    22,    70,     1,   232,   183,   731
  70. 790 DATA      0,   139,    14,    72,     1,   180,     1,   205,   612
  71. 800 DATA     16,   128,    38,    91,     1,     0,   128,    38,   440
  72. 810 DATA     87,     1,     0,    93,    95,    94,    90,    89,   549
  73. 820 DATA     91,    88,     7,    31,   157,   207,   139,    22,   742
  74. 830 DATA     76,     1,   161,    78,     1,   142,   216,    14,   689
  75. 840 DATA      7,   190,    70,     0,   191,   154,     5,   187,   804
  76. 850 DATA     17,     0,   185,    45,     0,   236,   168,     1,   652
  77. 860 DATA    117,   251,   250,   236,   168,     1,   116,   251,  1390
  78. 870 DATA    173,   251,   171,   226,   240,   131,   198,    70,  1460
  79. 880 DATA     75,   117,   231,    14,    31,   195,   191,    70,   924
  80. 890 DATA      0,   189,    17,     0,   185,    45,     0,   232,   668
  81. 900 DATA      7,     0,   131,   199,    70,    77,   117,   244,   845
  82. 910 DATA    195,   139,    22,    76,     1,   161,    78,     1,   673
  83. 920 DATA    142,   192,   173,   139,   216,   236,   168,     1,  1267
  84. 930 DATA    117,   251,   250,   236,   168,     1,   116,   251,  1390
  85. 940 DATA    139,   195,   171,   251,   226,   236,    14,     7,  1239
  86. 950 DATA    195,   139,    30,    74,     1,   138,   200,   184,   961
  87. 960 DATA     90,     0,   246,   231,   128,   235,    35,   208,  1173
  88. 970 DATA    227,    50,   255,     3,   216,   129,   195,   148,  1223
  89. 980 DATA     11,   136,    15,   195,   161,    74,     1,     2,   595
  90. 990 DATA    231,     2,   195,   185,     5,     0,   191,   133,   942
  91. 1000 DATA     1,   242,   174,   116,   244,   163,    74,     1,  1015
  92. 1010 DATA   232,     1,     0,   195,   139,    22,    74,     1,   664
  93. 1020 DATA    50,   255,   180,     2,   205,    16,   195,   187,  1090
  94. 1030 DATA     1,     0,   128,   250,    78,   117,    61,   195,   830
  95. 1040 DATA   187,   255,     0,   128,   250,    37,   117,    52,  1026
  96. 1050 DATA   195,   187,     0,   255,   128,   254,     3,   117,  1139
  97. 1060 DATA    43,   195,   187,     0,     1,   128,   254,    12,   820
  98. 1070 DATA   117,    34,   195,   128,   250,    37,   116,    11,   888
  99. 1080 DATA   187,   255,     0,   232,   174,   255,   176,    32,  1311
  100. 1090 DATA   232,   142,   255,   195,   198,     6,    74,     1,  1103
  101. 1100 DATA    37,   187,     0,     1,   128,   254,    12,   117,   736
  102. 1110 DATA     3,   187,     0,     0,   232,   149,   255,   195,  1021
  103. 1120 DATA   198,     6,    74,     1,    37,   235,     5,   198,   754
  104. 1130 DATA     6,    74,     1,    78,   232,   157,   255,   195,   998
  105. 1140 DATA   232,    56,     0,   116,    27,   139,   247,   131,   948
  106. 1150 DATA   198,    90,   243,   164,   235,    18,   232,    42,  1222
  107. 1160 DATA     0,   116,    13,   190,   202,    15,   191,    36,   763
  108. 1170 DATA    16,   253,   243,   164,   252,   131,   239,    88,  1386
  109. 1180 DATA   176,    32,   138,    38,    93,     1,    71,    71,   620
  110. 1190 DATA   185,    43,     0,   243,   171,   198,    69,   176,  1085
  111. 1200 DATA    58,   198,    69,   186,    77,   198,     6,    74,   866
  112. 1210 DATA     1,    37,   195,   185,    56,     4,   138,    22,   638
  113. 1220 DATA    75,     1,   184,    90,     0,   246,   226,   191,  1013
  114. 1230 DATA   148,    11,     3,   248,    43,   200,   195,   161,  1009
  115. 1240 DATA    80,     1,   163,    82,     1,   191,   198,    16,   732
  116. 1250 DATA   128,    54,    89,     1,     1,   128,    62,    89,   552
  117. 1260 DATA     1,     0,   235,    34,   128,    54,    88,     1,   541
  118. 1270 DATA     1,   128,    62,    88,     1,     2,   117,    14,   413
  119. 1280 DATA   138,    38,   201,     5,   176,    32,   191,   202,   983
  120. 1290 DATA     5,   185,    21,     0,   243,   171,   191,    32,   848
  121. 1300 DATA    17,   128,    62,    88,     1,     2,   190,   138,   626
  122. 1310 DATA     1,   116,     3,   190,   141,     1,   185,     3,   640
  123. 1320 DATA     0,   164,    71,   226,   252,   195,   251,   156,  1315
  124. 1330 DATA    30,     6,    80,    83,    81,    82,    86,    87,   535
  125. 1340 DATA   252,    14,    31,   184,    64,     0,   142,   192,   879
  126. 1350 DATA    38,   160,    73,     0,   177,     0,    60,     2,   510
  127. 1360 DATA   116,    10,    60,     3,   116,     6,    60,     7,   378
  128. 1370 DATA   116,     2,   177,     1,   136,    14,    92,     1,   539
  129. 1380 DATA    38,   139,    14,   108,     0,    38,   161,   110,   608
  130. 1390 DATA     0,   163,    80,     1,    14,     7,   179,    65,   509
  131. 1400 DATA    61,    24,     0,   116,     7,    61,    11,     0,   280
  132. 1410 DATA   118,     2,   179,    80,   191,   234,    11,    61,   876
  133. 1420 DATA    12,     0,   118,     3,    45,    12,     0,   136,   326
  134. 1430 DATA    29,   131,   239,    12,   183,     1,   232,   230,  1057
  135. 1440 DATA     0,   139,   193,    51,   210,   185,    69,     4,   851
  136. 1450 DATA   247,   241,   183,     0,   138,    14,   230,    11,  1064
  137. 1460 DATA   232,   212,     0,    58,   193,   116,     5,   198,  1014
  138. 1470 DATA     6,    90,     1,     0,   128,    62,    88,     1,   376
  139. 1480 DATA     0,   116,    19,   128,    62,    92,     1,     1,   419
  140. 1490 DATA   116,    12,   190,   196,    11,   191,   118,     0,   834
  141. 1500 DATA   185,    21,     0,   232,    35,   254,   128,    62,   917
  142. 1510 DATA    90,     1,     2,   116,    78,   184,    10,     0,   481
  143. 1520 DATA   187,   166,    12,   191,   222,    11,   139,   243,  1171
  144. 1530 DATA   185,     7,     0,   243,   167,   116,    31,   131,   880
  145. 1540 DATA   195,    90,    72,   117,   238,   128,    62,    89,   991
  146. 1550 DATA     1,     0,   116,    54,   161,    80,     1,    59,   472
  147. 1560 DATA     6,    82,     1,   116,    45,   139,    30,    99,   518
  148. 1570 DATA     1,   232,    52,     0,   235,    36,   128,    62,   746
  149. 1580 DATA    90,     1,     0,   117,    29,   247,   216,     5,   705
  150. 1590 DATA    13,     0,   134,   224,   176,    37,   163,    74,   821
  151. 1600 DATA     1,   198,     6,    91,     1,     1,   198,     6,   502
  152. 1610 DATA    90,     1,     2,   139,    30,   101,     1,   232,   596
  153. 1620 DATA    14,     0,    95,    94,    90,    89,    91,    88,   561
  154. 1630 DATA     7,    31,   157,    46,   255,    46,    62,     1,   605
  155. 1640 DATA   128,    62,    84,     1,    28,   117,    23,   228,   671
  156. 1650 DATA    97,    36,   252,   230,    97,   198,     6,    84,  1000
  157. 1660 DATA     1,     0,   161,    80,     1,   163,    82,     1,   489
  158. 1670 DATA   198,     6,    90,     1,     1,   195,   128,    62,   681
  159. 1680 DATA    84,     1,     0,   117,    23,   176,   182,   230,   813
  160. 1690 DATA    67,   186,    18,     0,    51,   192,   247,   243,  1004
  161. 1700 DATA   230,    66,   138,   196,   230,    66,   228,    97,  1251
  162. 1710 DATA    36,   252,   230,    97,   228,    97,    52,     3,   995
  163. 1720 DATA   230,    97,   254,     6,    84,     1,   195,   179,  1046
  164. 1730 DATA    10,   246,   243,     5,    48,    48,   128,   255,   983
  165. 1740 DATA     0,   116,     6,    60,    48,   117,     2,   176,   525
  166. 1750 DATA    32,   170,   134,   224,    71,   170,   131,   199,  1131
  167. 1760 DATA     3,   195,   252,   128,    62,   128,     0,     0,   768
  168. 1770 DATA   116,    32,   190,   130,     0,   191,    93,     1,   753
  169. 1780 DATA   185,     5,     0,   128,   124,   255,    13,   116,   826
  170. 1790 DATA    17,   128,    60,    44,   117,     3,    70,   235,   674
  171. 1800 DATA     5,   232,    39,     1,   137,    29,    71,    71,   585
  172. 1810 DATA   226,   233,   176,    32,   138,    38,    95,     1,   939
  173. 1820 DATA   187,   148,    11,   139,   251,   185,   253,     2,  1176
  174. 1830 DATA   243,   171,   176,   205,   191,   240,    11,   232,  1469
  175. 1840 DATA     1,     1,   191,    40,    16,   232,   251,     0,   732
  176. 1850 DATA   191,    54,    17,   232,   245,     0,   190,     0,   929
  177. 1860 DATA     7,   185,     5,     0,   173,   139,   248,     3,   760
  178. 1870 DATA   251,   172,    60,     0,   116,     4,   170,    71,   844
  179. 1880 DATA   235,   247,   226,   240,   185,    12,     0,   173,  1318
  180. 1890 DATA   139,   248,     3,   251,   164,   226,   248,   182,  1461
  181. 1900 DATA     4,   173,   139,   248,     3,   251,   172,   185,  1175
  182. 1910 DATA    10,     0,   170,   131,   199,    89,   226,   250,  1075
  183. 1920 DATA   254,   206,   117,   237,   160,    93,     1,   191,  1259
  184. 1930 DATA   149,    11,   185,    45,     0,   170,    71,   226,   857
  185. 1940 DATA   252,   183,    11,   191,    75,    12,   232,   170,  1126
  186. 1950 DATA     0,   131,   199,     4,   254,   207,   117,   246,  1158
  187. 1960 DATA   185,     2,     0,   191,   133,    16,   170,    71,   768
  188. 1970 DATA   170,   131,   199,    31,   170,    71,   170,   191,  1133
  189. 1980 DATA   223,    16,   226,   242,   232,    80,     0,   184,  1203
  190. 1990 DATA    64,     0,   142,   192,    38,   161,   110,     0,   707
  191. 2000 DATA   163,    82,     1,    38,   161,    99,     0,     5,   549
  192. 2010 DATA     6,     0,   163,    76,     1,    61,   186,     3,   496
  193. 2020 DATA   116,     6,   129,     6,    78,     1,     0,     8,   344
  194. 2030 DATA   184,     9,    53,   205,    33,   137,    30,    66,   717
  195. 2040 DATA     1,   140,     6,    68,     1,   186,   165,     1,   568
  196. 2050 DATA   184,     9,    37,   205,    33,   184,    28,    53,   733
  197. 2060 DATA   205,    33,   137,    30,    62,     1,   140,     6,   614
  198. 2070 DATA    64,     1,   186,    62,     4,   184,    28,    37,   566
  199. 2080 DATA   205,    33,   186,   143,    17,   205,    39,   180,  1008
  200. 2090 DATA    42,   205,    33,    80,   138,   198,    50,   228,   974
  201. 2100 DATA   191,   196,    11,   183,     1,   232,   207,   254,  1275
  202. 2110 DATA   138,   194,    50,   228,   183,     0,   232,   198,  1223
  203. 2120 DATA   254,   139,   193,    45,   108,     7,    61,   100,   907
  204. 2130 DATA     0,   114,     3,    45,   100,     0,   232,   182,   676
  205. 2140 DATA   254,    88,   177,     3,   246,   225,   190,   144,  1327
  206. 2150 DATA     1,     3,   240,   185,     3,     0,   164,    71,   667
  207. 2160 DATA   226,   252,   195,   185,    43,     0,   170,    71,  1142
  208. 2170 DATA   226,   252,   195,    51,   219,   172,    60,    44,  1219
  209. 2180 DATA   118,    19,    44,    48,    50,   228,   139,   232,   878
  210. 2190 DATA   184,    10,     0,    51,   210,   247,   227,   139,  1068
  211. 2200 DATA   216,     3,   221,   235,   232,   139,   195,   195,  1436
  212. 2210 DATA    10,     0,    82,   101,   109,   105,   110,   100,   617
  213. 2220 DATA   101,   114,     0,   184,     0,    84,   105,   109,   697
  214. 2230 DATA   101,     0,   204,     0,    65,   112,   112,   111,   705
  215. 2240 DATA   105,   110,   116,   109,   101,   110,   116,     0,   767
  216. 2250 DATA   236,     4,   186,    32,    70,    49,    32,    68,   677
  217. 2260 DATA   101,   108,   101,   116,   101,    32,    76,   105,   740
  218. 2270 DATA   110,   101,    32,    32,    32,    70,    50,    32,   459
  219. 2280 DATA    72,   111,   117,   114,   108,   121,    32,    65,   740
  220. 2290 DATA   108,    97,   114,   109,    32,    32,    69,   110,   671
  221. 2300 DATA    97,    98,   108,   101,   100,    32,   186,     0,   722
  222. 2310 DATA    70,     5,   186,    32,    70,    51,    32,    73,   519
  223. 2320 DATA   110,   115,   101,   114,   116,    32,    76,   105,   769
  224. 2330 DATA   110,   101,    32,    32,    32,    70,    52,    32,   461
  225. 2340 DATA    84,   105,   109,   101,    32,    68,   105,   115,   719
  226. 2350 DATA   112,   108,    97,   121,    32,    32,    69,   110,   681
  227. 2360 DATA    97,    98,   108,   101,   100,    32,   186,     0,   722
  228. 2370 DATA    52,     0,    45,    58,     0,    45,    78,     0,   278
  229. 2380 DATA    58,    88,     0,    77,    90,     0,   201,   178,   692
  230. 2390 DATA     0,   187,   180,     0,   186,    12,     1,   186,   752
  231. 2400 DATA   146,     4,   204,   234,     4,   185,   160,     5,   942
  232. 2410 DATA   200,   248,     5,   188,    14,     1,   186,    22,   864
  233. 2420 DATA     1,    58,    32,     1,    77,   102,     1,   186,   458
  234.